library(htmlwidgets) #install.packages("htmlwidgets")
library(plotly) #install.packages("plotly")

p <- plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
p

plot_ly(
type = 'choropleth',
locations = c('AZ','CA','VT'),
locationmode = 'USA-states',
colorscale = 'Viridis' ,
z = c(10 ,20 ,40 )) %>% 
layout(geo = list(scope = 'usa'))

Deadline: Sunday, November 26 before midnight.